﻿Public Class FrmMain

    Private Sub FrmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub SảnPhẩmToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SảnPhẩmToolStripMenuItem.Click
        Dim frmcnttsp As New FrmCapNhatThongTinSanPham
        frmcnttsp.ShowDialog()
    End Sub


    Private Sub ThoátToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ThoátToolStripMenuItem1.Click
        Me.Close()
    End Sub

    Private Sub ThoátToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ThoátToolStripMenuItem.Click
        Dim frmkh As New FrmKhoHang
        frmkh.ShowDialog()
    End Sub

    Private Sub KháchHàngToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KháchHàngToolStripMenuItem.Click
        Dim frmcnttkh As New FrmCapNhatThongTinKhachHang
        frmcnttkh.ShowDialog()
    End Sub

    Private Sub NhàCungCấpToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NhàCungCấpToolStripMenuItem.Click
        Dim frmcnttncc As New FrmCapNhatThongTinNhaCungCap
        frmcnttncc.ShowDialog()
    End Sub

    Private Sub PhếuNhậpKhoToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PhếuNhậpKhoToolStripMenuItem.Click
        Dim frmpnk As New FrmCapNhatPhieuNhapKho
        frmpnk.ShowDialog()
    End Sub

    Private Sub TheoSảnPhẩmToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TheoSảnPhẩmToolStripMenuItem.Click
        Dim frmtsp As New FrmTimKiemTheoSanPham
        frmtsp.ShowDialog()
    End Sub

    Private Sub PhiếuNhậpKhoToolStripMenuItem_Click(sender As Object, e As EventArgs)
        Dim frmttpn As New FrmThongTinPhieuNhapKho
        frmttpn.ShowDialog()
    End Sub

    Private Sub TheoSốPhiếuToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TheoSốPhiếuToolStripMenuItem.Click
        Dim frmttsp As New FrmTimKiemTheoSoPhieu
        frmttsp.ShowDialog()
    End Sub

    Private Sub ThôngTinSinhViênToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ThôngTinSinhViênToolStripMenuItem.Click
        Dim frmttsv As New FrmThongTinSinhVien
        frmttsv.ShowDialog()
    End Sub

    Private Sub PhiếuXuấtKhoToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PhiếuXuấtKhoToolStripMenuItem.Click
        Dim frmxk As New FrmCapNhatPhieuXuatKho
        frmxk.ShowDialog()
    End Sub

    Private Sub SảnPhẩmToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles SảnPhẩmToolStripMenuItem1.Click
        Dim frmttsp As New FrmThongTinSanPham
        frmttsp.ShowDialog()
    End Sub
End Class
